home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2000 February / Macworld (2000-02).dmg / Shareware World / Comms & Internet / Flex-Able 1.0 / Flex-Able Templates Folder / upload_replace.able < prev   
Text File  |  1999-12-07  |  4KB  |  133 lines
  1. <:set form <:read_form>>
  2.  
  3. <!-- add more extensions if you want them -->
  4. <:set optionlist 
  5.             "<OPTION SELECTED>
  6.             <OPTION>.html
  7.             <OPTION>.txt
  8.             <OPTION>.gif
  9.             <OPTION>.jpg
  10.             <OPTION>.doc
  11. ">
  12. <:set maxcount 5>
  13.  
  14. <HTML>
  15.     <HEAD>
  16.         <TITLE>Upload Files</TITLE>
  17.     </HEAD>
  18.     <BODY BGCOLOR="#F0F0F0">
  19.  
  20.     <H2>Upload Files</H2>
  21.     
  22.         This page will allow you to upload up to five files.  They will replace any existing files in this directory.  Thus, if you provide a file that has the same name as an existing one, the old file will be replaced with the new one.  So be careful!<P>
  23.     You may choose to save a file under a different name than it has on your local drive. <p>
  24.  
  25.     <BLOCKQUOTE>
  26.     
  27. <!-- This is the ugly way to get five iterations, but it works well enough. -->
  28.  
  29. <:require form["file1"]>
  30.     <:set oldfile form["file1"]>
  31.     <:set newfile <:new "FSSP" <:cat form["name1"] form["ext1"]>>>
  32.     <:require newfile>
  33.         <:move_file oldfile newfile>
  34.         <:echo oldfile> saved to <A HREF="<:file_uri newfile>"><:echo     newfile></A><br>
  35.     <:else>
  36.         <:move_file oldfile <:new "TEXT" oldfile>>
  37.         <A HREF="<:echo oldfile>"><:echo oldfile></A> saved.<br>
  38.     <:/require>
  39. <:/require>
  40.  
  41.  
  42. <:require form["file2"]>
  43.     <:set oldfile form["file2"]>
  44.     <:set newfile <:new "FSSP" <:cat form["name2"] form["ext2"]>>>
  45.     <:require newfile>
  46.         <:move_file oldfile newfile>
  47.         <:echo oldfile> saved to <A HREF="<:file_uri newfile>"><:echo     newfile></A><br>
  48.     <:else>
  49.         <:move_file oldfile <:new "TEXT" oldfile>>
  50.         <A HREF="<:echo oldfile>"><:echo oldfile></A> saved.<br>
  51.     <:/require>
  52. <:/require>
  53.  
  54.  
  55. <:require form["file3"]>
  56.     <:set oldfile form["file3"]>
  57.     <:set newfile <:new "FSSP" <:cat form["name3"] form["ext3"]>>>
  58.     <:require newfile>
  59.         <:move_file oldfile newfile>
  60.         <:echo oldfile> saved to <A HREF="<:file_uri newfile>"><:echo     newfile></A><br>
  61.     <:else>
  62.         <:move_file oldfile <:new "TEXT" oldfile>>
  63.         <A HREF="<:echo oldfile>"><:echo oldfile></A> saved.<br>
  64.     <:/require>
  65. <:/require>
  66.  
  67.  
  68. <:require form["file4"]>
  69.     <:set oldfile form["file4"]>
  70.     <:set newfile <:new "FSSP" <:cat form["name4"] form["ext4"]>>>
  71.     <:require newfile>
  72.         <:move_file oldfile newfile>
  73.         <:echo oldfile> saved to <A HREF="<:file_uri newfile>"><:echo     newfile></A><br>
  74.     <:else>
  75.         <:move_file oldfile <:new "TEXT" oldfile>>
  76.         <A HREF="<:echo oldfile>"><:echo oldfile></A> saved.<br>
  77.     <:/require>
  78. <:/require>
  79.  
  80.  
  81. <:require form["file5"]>
  82.     <:set oldfile form["file5"]>
  83.     <:set newfile <:new "FSSP" <:cat form["name5"] form["ext5"]>>>
  84.     <:require newfile>
  85.         <:move_file oldfile newfile>
  86.         <:echo oldfile> saved to <A HREF="<:file_uri newfile>"><:echo     newfile></A><br>
  87.     <:else>
  88.         <:move_file oldfile <:new "TEXT" oldfile>>
  89.         <A HREF="<:echo oldfile>"><:echo oldfile></A> saved.<br>
  90.     <:/require>
  91. <:/require>
  92.  
  93. </BLOCKQUOTE>
  94.  
  95. <H2>Select files to upload</H2>
  96. <FORM METHOD=post ACTION="upload_replace.able" ENCTYPE="multipart/form-data">
  97.     <TABLE>
  98.         <TR>
  99.             <TH>File to Upload</TH>
  100.             <TH>Save As</TH>
  101.         </TR>
  102.         <TR>
  103.             <TD><INPUT TYPE=FILE NAME="file1"></TD>
  104.             <TD><INPUT TYPE=TEXT NAME="name1" VALUE="">
  105.             <SELECT NAME="ext1"><:echo optionlist></SELECT></TD>
  106.         </TR>
  107.         <TR>
  108.             <TD><INPUT TYPE=FILE NAME="file2"></TD>
  109.             <TD><INPUT TYPE=TEXT NAME="name2" VALUE="">
  110.             <SELECT NAME="ext2"><:echo optionlist></SELECT></TD>
  111.         </TR>
  112.         <TR>
  113.             <TD><INPUT TYPE=FILE NAME="file3"></TD>
  114.             <TD><INPUT TYPE=TEXT NAME="name3" VALUE="">
  115.             <SELECT NAME="ext3"><:echo optionlist></SELECT></TD>
  116.         </TR>
  117.         <TR>
  118.             <TD><INPUT TYPE=FILE NAME="file4"></TD>
  119.             <TD><INPUT TYPE=TEXT NAME="name4" VALUE="">
  120.             <SELECT NAME="ext4"><:echo optionlist></SELECT></TD>
  121.         </TR>
  122.         <TR>
  123.             <TD><INPUT TYPE=FILE NAME="file5"></TD>
  124.             <TD><INPUT TYPE=TEXT NAME="name5" VALUE="">
  125.             <SELECT NAME="ext5"><:echo optionlist></SELECT></TD>
  126.         </TR>
  127.     </TABLE>            
  128.             <INPUT TYPE=SUBMIT VALUE="Send Files">    <INPUT TYPE=RESET VALUE="Clear">
  129. </FORM>
  130.  
  131.     </BODY>
  132. </HTML>
  133.